unit UTextEditorFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UEditorFrame, StdCtrls, Mask, DBCtrls;

type
  TTextEditFrame = class(TEditorFrame)
    edValue: TEdit;
  protected
    function GetData: string; override;
    procedure SetData(const Value: string); override;
  end;

implementation

function TTextEditFrame.GetData: string;
begin
  Result := edValue.Text;
end;

procedure TTextEditFrame.SetData(const Value: string);
begin
  edValue.Text := Value;
end;

{$R *.dfm}

end.
